inherited fPesquisaCidade: TfPesquisaCidade
  Caption = 'Pesquisa de Cidade'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited RxDBGrid1: TRxDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = 'CODIGO'
        Title.Caption = 'C'#243'digo'
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOME'
        Title.Caption = 'Cidade'
        Width = 262
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UF'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'IBGE'
        Width = 53
        Visible = True
      end>
  end
  inherited query: TIBOQuery
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    SQL.Strings = (
      'select * from cidade'
      'order by cidade.nome')
    object queryCODIGO: TSmallintField
      FieldName = 'CODIGO'
      Required = True
    end
    object queryNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object queryUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object queryIBGE: TStringField
      FieldName = 'IBGE'
      Size = 7
    end
  end
end
